home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1986 March & April / rerun-1986-03-04.d64 / boot runscript (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  37 lines
  1. 10 rem boot program for runscript wordprocessor, macro table, & character sets
  2. 50 rem if loading macro set, define mac$ with name of macro set to load
  3. 60 mac$=""
  4. 80 char$="c64 char set" : rem define char$ with name of character set to load
  5. 100 dev=8 : rem set dev=8 for disk load if 8 is correct device number
  6. 140 gosub 640: rem poke machine language routine to cassette buffer
  7. 180 a=780:x=781:y=782: rem register saves for sys
  8. 210 for loop=65024 to 65535
  9. 220 poke loop,0 : rem clear memory used for macro table
  10. 230 next loop
  11. 260 prog$="runscript" : adr=4681 : gosub 380: rem load runscript object code
  12. 280 prog$=mac$
  13. 290 if mac$<>"" then adr=65024 : gosub 380: rem load macro table
  14. 310 prog$=char$ : gosub 470: rem setup name, logical file for char set load
  15. 320 sys 900: rem load char set then jump to runscript
  16. 350 end
  17. 380 gosub 470: rem setup name & logical file
  18. 400 poke a,0: poke x,(adr/256-int(adr/256))*256 : poke y,adr/256
  19. 410 sys 65493: rem load
  20. 430 return
  21. 470 rem use the kernal setlfs
  22. 480 poke a,0: poke x,dev : poke y,0
  23. 490 sys 65466
  24. 510 rem setup filename
  25. 520 for loop=1 to len(prog$)
  26. 530 poke 849+loop,asc(mid$(prog$,loop,1))
  27. 540 next loop
  28. 560 rem use kernal setnam
  29. 570 poke a,len(prog$): poke x,850and255 : poke y,850/256
  30. 580 sys 65469
  31. 600 return
  32. 640 for loop=900 to 910
  33. 650 read byte: poke loop,byte
  34. 660 next loop
  35. 680 return
  36. 710 data 169,0,170,160,8,32,213,255,76,99,26
  37.